﻿Public Class CJugadorPacman
  
    Private _Puntuacion As Integer
    Private _Tiempo As Integer
    Public Property Tiempo As Integer
        Get
            Return _Tiempo
        End Get
        Set(ByVal value As Integer)
            value = _Tiempo
        End Set
    End Property
    Public Property Puntuacion As Integer
        Get
            Return _Puntuacion
        End Get
        Set(ByVal value As Integer)
            value = _Puntuacion
        End Set
    End Property
    Public Sub New()
    End Sub
    Public Function Logro500(ByVal Puntuacion As Integer) As Boolean
        Return Puntuacion > 500
    End Function
    Public Function Logro1000(ByVal Puntuacion As Integer) As Boolean
        Return Puntuacion > 1000
    End Function
    Public Function Logro3000(ByVal Puntuacion As Integer) As Boolean
        Return Puntuacion > 3000
    End Function
    Public Function Logro10000(ByVal Puntuacion As Integer) As Boolean
        Return Puntuacion > 10000
    End Function
    Public Function LogroTitulo(ByVal Puntuacion As Integer) As Boolean
        Return Puntuacion = 10000
    End Function
End Class
